home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / amos / amos_col.lha / AMOS-COL / Scroll2.amos / Scroll2.amosSourceCode
AMOS Source Code  |  1980-01-10  |  528b  |  34 lines
  1. 'By Delta/Opium
  2. '
  3. '�ukasz ï¿½elezny
  4. 'ul. W�oska 4D/6 
  5. '42-612 Tarnowskie G�ry  
  6. 'Poland
  7. '
  8. 'Date: 05.1997 
  9. '
  10. Screen Open 0,640,256,2,Hires
  11. Palette $0,$FFF : Curs Off : Flash Off : Cls 0
  12. Def Scroll 1,0,240 To 640,256,-1,0
  13. Def Scroll 2,0,0 To 75,256,-1,-1
  14. Def Scroll 3,0,0 To 30,256,0,-1
  15. A$="DELTA OF OPIUM IS THE BEST"
  16. Text 85,250,"D"
  17. W=0
  18. D=1
  19. P=0
  20. Do 
  21.    Scroll 1
  22.    If P<70
  23.       Scroll 2
  24.    Else 
  25.       Scroll 3
  26.    End If 
  27.    Wait Vbl 
  28.    Inc W
  29.    If W=8
  30.       W=0
  31.       Inc D
  32.       Text 85,250,Mid$(A$,D,1)
  33.    End If 
  34. Loop